home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Aldus / US English / PageMaker 5.0 / PageMaker 5.0 68K / PM5.0 TV RSRC / PM5.0 TV RSRC.rsrc / PSRC_132 < prev    next >
Encoding:
Text File  |  1993-08-26  |  6.5 KB  |  91 lines
  1. œ%%BeginResource: procset ALSEP_PS 1.0 1
  2. %%Copyright: (C) Copyright 1992 Aldus Corporation.  All Rights Reserved.
  3. %%Version: 1.0 1
  4. /setpacking where{pop currentpacking true setpacking}if userdict/ALSEP 100
  5. dict dup begin put/bdef{bind def}bind def/xdef{exch def}bdef/ldef{load def}
  6. bdef/ndef{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdef
  7. /languagelevel 1 def/colordict null def/_sepredefs null def/_sep? false def
  8. /_sepink null def/_op false def/_isReg? false def/_sepMX matrix def/_isDCS?
  9. false def/$image systemdict/image get def/$imagemask systemdict/imagemask get
  10. def/$setgray systemdict/setgray get def/colorimage{$image}ndef/$colorimage
  11. /colorimage ldef/*$setcmyk systemdict/setcmykcolor known{systemdict
  12. /setcmykcolor get}{{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1
  13. roll}repeat systemdict/setrgbcolor get exec pop}}ifelse def/c2`{dict ALSEP
  14. /colordict 3 -1 roll put}bdef/d2`{exch cvn exch colordict 3 1 roll put}bdef
  15. /e2`{dup ALSEP/_sepredefs 3 -1 roll put dup/bw ne{ALSEP/_sep? true put}{ALSEP
  16. /_sep? false put}ifelse ALSEP exch get exec cvn ALSEP/_sepink 3 -1 roll put}
  17. bdef/inverted? 0 currenttransfer exec .5 ge def/setcmykcolor{pop pop pop pop
  18. ALSEP/_isReg? false put}def/setcmykcoloroverprint{pop pop pop pop}bdef
  19. /findcmykcustomcolor{5/packedarray where{pop packedarray}{array astore
  20. readonly}ifelse}bdef/findcmykprocesscolor{5/packedarray where{pop packedarray}
  21. {array astore readonly}ifelse}bdef/setgray{1 exch sub 0 0 0 4 -1 roll
  22. setcmykcolor ALSEP/_isReg? false put}bdef/ToProcess?{_sep?{colordict exch
  23. known not}{pop false}ifelse}bdef/OnMask?{_sep?{cvn _sepink eq}{pop true}ifelse
  24. }bdef/setcustomcolor{exch aload pop dup ToProcess?{pop 4{4 index mul 4 1 roll}
  25. repeat setcmykcolor pop}{5 1 roll 4{pop}repeat OnMask?{1 exch sub $setgray}{
  26. pop 1 $setgray}ifelse}ifelse ALSEP/_isReg? false put}bdef/setprocesscolor{exch
  27. aload pop _sep?{pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}{5{pop}
  28. repeat 1 exch sub $setgray}ifelse ALSEP/_isReg? false put}bdef
  29. /setseparationgray{$setgray ALSEP/_isReg? true put}bdef/setoverprint{ALSEP/_op
  30. 3 -1 roll put}bdef/currentoverprint{ALSEP/_op get}bdef/paint?{ALSEP begin
  31. currentoverprint not currentgray 1 ne or _isReg? or end}bdef/_ucrk .5 def
  32. /_ucrm .31 def/_ucry .48 def/_boostk 1.25 def/cvt1{1 exch sub 3 1 roll}bdef
  33. /cvt2{0 2 copy lt{exch}if pop 3 1 roll}bdef/setrgbcolor{cvt1 cvt1 cvt1 3 copy
  34. 2 copy gt{exch}if pop 2 copy gt{exch}if pop _ucrk sub 0 2 copy lt{exch}if pop
  35. 4 1 roll 3{3 index sub 3 1 roll}repeat 1 index _ucry mul sub cvt2 1 index
  36. _ucrm mul sub cvt2 3 1 roll 4 -1 roll _boostk mul setcmykcolor ALSEP/_isReg?
  37. false put}bdef/sethsbcolor{sethsbcolor currentrgbcolor setrgbcolor ALSEP
  38. /_isReg? false put}bdef/&stroke/stroke ldef/&fill/fill ldef/&eofill/eofill
  39. ldef/&show/show ldef/&ashow/ashow ldef/&widthshow/widthshow ldef/&awidthshow
  40. /awidthshow ldef/&kshow/kshow ldef/stroke{paint?{&stroke}{newpath}ifelse}bdef
  41. /fill{paint?{&fill}{newpath}ifelse}bdef/eofill{paint?{&eofill}{newpath}ifelse}
  42. bdef/show{paint?{&show}{gsave _sepMX currentmatrix nulldevice setmatrix &show
  43. currentpoint grestore moveto}ifelse}bdef/ashow{paint?{&ashow}{gsave _sepMX
  44. currentmatrix nulldevice setmatrix &ashow currentpoint grestore moveto}ifelse}
  45. bdef/widthshow{paint?{&widthshow}{gsave _sepMX currentmatrix nulldevice
  46. setmatrix &widthshow currentpoint grestore moveto}ifelse}bdef/awidthshow{
  47. paint?{&awidthshow}{gsave _sepMX currentmatrix nulldevice setmatrix
  48. &awidthshow currentpoint grestore moveto}ifelse}bdef/kshow{paint?{&kshow}{
  49. gsave _sepMX currentmatrix nulldevice setmatrix &kshow currentpoint grestore
  50. moveto}ifelse}bdef/separationimage{$image}bdef/_invbuf{0 1 2 index length 1
  51. sub{dup 2 index exch get 255 exch sub 2 index 3 1 roll put}for}bdef/clrimage{
  52. paint?{currentgray 1 ne{$colorimage}{inverted?{{pop 0}}{{pop 1}}ifelse
  53. systemdict begin settransfer end $colorimage}ifelse}{gsave nulldevice
  54. $colorimage grestore}ifelse}bdef/imagemask{_isDCS?{$imagemask}{paint?{
  55. $imagemask}{gsave nulldevice $imagemask grestore}ifelse}ifelse}bdef/image{
  56. _isDCS?{$image}{paint?{currentgray 1 ne{$image}{inverted?{{pop 0}}{{pop 1}}
  57. ifelse systemdict begin settransfer end $image}ifelse}{gsave nulldevice $image
  58. grestore}ifelse}ifelse}bdef/alpsimage{paint?{currentgray 1 ne{$image}{
  59. inverted?{{pop 0}}{{pop 1}}ifelse systemdict begin settransfer end $image}
  60. ifelse}{gsave nulldevice $image grestore}ifelse}bdef/customcolorimage{aload
  61. pop dup ToProcess?{pop setcmykcolor/imtnt 1 currentgray sub def
  62. currenttransfer{imtnt mul 1 imtnt sub add}addprocs settransfer}{5 1 roll 4{pop
  63. }repeat 1 exch OnMask?{1 exch sub $setgray}{pop 1 $setgray}ifelse}ifelse
  64. alpsimage}bdef/e2a`{ALSEP/_isDCS? true put}bdef/e2b`{ALSEP/_isDCS? false put}
  65. bdef/spot{/setcmykcolor{pop pop pop pop 1 $setgray ALSEP/_isReg? false put}def
  66. /colorimage{dup 4 ne 2 index not or{gsave 1 $setgray clrimage grestore}{gsave
  67. 1 $setgray pop pop[5 -1 roll/exec cvx 6 -1 roll/exec cvx 7 -1 roll/exec cvx 8
  68. -1 roll/exec cvx/exch cvx/pop cvx/exch cvx/pop cvx/exch cvx/pop cvx/_invbuf
  69. cvx]cvx alpsimage grestore}ifelse}def}bdef/c{/setcmykcolor{pop pop pop 1 exch
  70. sub $setgray ALSEP/_isReg? false put}def/colorimage{dup 4 ne 2 index not or{
  71. gsave 1 $setgray clrimage grestore}{gsave 0 $setgray pop pop[5 -1 roll/exec
  72. cvx 6 -1 roll/exec cvx 7 -1 roll/exec cvx 8 -1 roll/exec cvx/pop cvx/pop cvx
  73. /pop cvx/_invbuf cvx]cvx alpsimage grestore}ifelse}def}bdef/m{/setcmykcolor{
  74. pop pop exch pop 1 exch sub $setgray ALSEP/_isReg? false put}def/colorimage{
  75. dup 4 ne 2 index not or{gsave 1 $setgray clrimage grestore}{gsave 0 $setgray
  76. pop pop[5 -1 roll/exec cvx 6 -1 roll/exec cvx 7 -1 roll/exec cvx 8 -1 roll
  77. /exec cvx/pop cvx/pop cvx/exch cvx/pop cvx/_invbuf cvx]cvx alpsimage grestore}
  78. ifelse}def}bdef/y{/setcmykcolor{pop 3 1 roll pop pop 1 exch sub $setgray ALSEP
  79. /_isReg? false put}def/colorimage{dup 4 ne 2 index not or{gsave 1 $setgray
  80. clrimage grestore}{gsave 0 $setgray pop pop[5 -1 roll/exec cvx 6 -1 roll/exec
  81. cvx 7 -1 roll/exec cvx 8 -1 roll/exec cvx/pop cvx/exch cvx/pop cvx/exch cvx
  82. /pop cvx/_invbuf cvx]cvx alpsimage grestore}ifelse}def}bdef/k{/setcmykcolor{4
  83. 1 roll pop pop pop 1 exch sub $setgray ALSEP/_isReg? false put}def/colorimage{
  84. dup 4 ne 2 index not or{gsave 0 $setgray clrimage grestore}{gsave 0 $setgray
  85. pop pop[5 -1 roll/exec cvx 6 -1 roll/exec cvx 7 -1 roll/exec cvx 8 -1 roll
  86. /exec cvx/exch cvx/pop cvx/exch cvx/pop cvx/exch cvx/pop cvx/_invbuf cvx]cvx
  87. alpsimage grestore}ifelse}def}bdef/bw{/setcmykcolor{gsave *$setcmyk
  88. currentgray grestore $setgray ALSEP/_isReg? false put}def/setgray{$setgray}def
  89. }bdef end/setpacking where{pop setpacking}if
  90. %%EndResource
  91.